10 INPUT"FILENAME:";N$,D
20 F$=N$:ZK=PEEK(53)+256*PEEK(54)-LEN(F$):POKE 782,ZK/256
25 POKE781,ZK-PEEK(782)*256:POKE780,LEN(F$):SYS65469
30 POKE780,1:POKE781,D:POKE782,0:SYS65466
40 POKE780,0:POKE781,222:POKE782,169:SYS65493
50 CLOSE1:PRINT:PRINT"[147]"CHR$(142)